The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48_2/pxadd

Text File | 1995-03-31 | 344b | 16 lines

@
@ Now can anyone do faster than this?  I do not consider machine code
@ cheating ;-)
@
@USAGE: { #x #y } { #x1 #y1 } PXADD --> { #(x+x1) #(y+y1) }
@
%%HP: T(3)A(D)F(.);
@ Checksum: # BA68h
@ Bytes: 57        (When stored in a variable called PXADD)
\<< LIST\-> DROP 3
ROLLD OVER 1 GET +
3 ROLLD 2 GET + 2
\->LIST
\>>